home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / tutor / pro10 / check.bas < prev    next >
Encoding:
BASIC Source File  |  1990-07-27  |  2.3 KB  |  52 lines
  1. 10 ' CHECK.BAS - program to print a blank check on the screen and accept
  2. 20 ' the following information:
  3. 30 '
  4. 40 ' CHECKNO            Numeric variable that contains the check number
  5. 50 ' CHECKDATE$         String variable with check date (mm/dd/yyyy)
  6. 60 ' CHECKPAIDTO$       String variable with name of check payor
  7. 70 ' CHECKAMOUNT        Numeric variable that contains the check amount
  8. 80 ' CHECKMEMO$         String variable that contains the check memo field
  9. 90 '
  10. 100 ' First, clear screen and set up the check on the screen
  11. 110 CLS
  12. 120 KEY OFF
  13. 130 LOCATE 25,1
  14. 140 PRINT "YOU ARE:  Entering information about a check drawn on account...";
  15. 150 LOCATE 1,1
  16. 160 PRINT "*******************************************************************************"
  17. 170 PRINT "*                                                                             *"
  18. 180 PRINT "*     Dewey, Cheatem and Howe                    Check No:   ______           *"
  19. 190 PRINT "*     123 Rook Boulevard                         Date:   __/__/____           *"
  20. 200 PRINT "*     Reed City, MI  49677                                                    *"
  21. 210 PRINT "*                                                                             *"
  22. 220 PRINT "*  Pay to the order of:   __________________________________________________  *"
  23. 230 PRINT "*                                                                             *"
  24. 240 PRINT "*  (Check Amount)     :   __________                                          *"
  25. 250 PRINT "*                                                                             *"
  26. 260 PRINT "*  Memo:   __________________________________________________                 *"
  27. 270 PRINT "*                                                                             *"
  28. 280 PRINT "*******************************************************************************"
  29. 290 'Check printed on screen, now let's get information about the check
  30. 300 LOCATE 3,60
  31. 310 INPUT CHECKNO
  32. 320 LOCATE 3,60
  33. 330 PRINT " ";
  34. 340 LOCATE 4,56
  35. 350 INPUT CHECKDATE$
  36. 360 LOCATE 4,56
  37. 370 PRINT " ";
  38. 380 LOCATE 7,25
  39. 390 INPUT CHECKPAIDTO$
  40. 400 LOCATE 7,25
  41. 410 PRINT " ";
  42. 420 LOCATE 9,25
  43. 430 INPUT CHECKAMOUNT
  44. 440 LOCATE 9,25
  45. 450 PRINT " ";
  46. 460 LOCATE 11,10,0
  47. 470 INPUT CHECKMEMO$
  48. 480 LOCATE 11,10,0
  49. 490 PRINT " ";
  50. 500 END
  51. 510 ' End of program - CHECK.BAS
  52.